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o ZTITLE "NML Fi 44° modules’ 


MODULE NMLSFILE 
TP ANGUAGE (BLIS $354). 
ADDRESSING it ORE (NON EA pes 5 rik i 
ADDRESSING 10 BR gente RNAL=GENERAL), 
= 


BEGIN 


BESET ESET TET T TTT TTT TTT Tce reece Titi irc rir iit isi i ici iiiiiiiiiiiif 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT CORPORATION, " MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


® 
® 
® 
® 
5 ® 
!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND oo tor * 
:# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lt y AND WITH THE * 
!® INCLUSION OF THE oe Se eROVIDES NOTICE. THIS SOFTWARE ry} ate OTHER * 
M ® 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


SoOoOooooooooooooooSd 


ooooo 


fe SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
il CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee REAR A RAAT AAA 
' 


Sooooooooooo 


SoOoooooooooo 


i ABSTRACT: 


ooo 


This module contains routines to handle 1/0 for the permanent 
data base files. 


| 
'++ 
FACILITY: DECnet-VAX V2.0 Network Management Listener 
i ENVIRONMENT: VAX/VMS Operating System 


=O DONA UE WN | O OONAUESWWN (OD DNOUS WR OO ONOUS WH 


FHF FAWN III POPPI NNIMONNND 2 oo 


i AUTHOR: Distributed Systems Software Engineering 
i CREATION DATE: 30-DEC-1979 


¥03-003 MKP0003 Kathy Perko 4-July-1983 
Convert node pernanant database to four ISAM keys. 
This will make it much faster. 


v03-002 mKP0002 Kath H Perko 29-June-1982 
Modify entity quel ‘ or handling to use the qualifier's 
Parameter Semantic Table (PST) entry address instead of 
the Network Management parameter ID as 


' 

' 

' 

t 

' 

' 

i 

' 

' 

' 

i 

MODIFIED BY: 

i 

d 

' 

' 

' 

! 

; np 
; Fix bug im NMLSMATCHRECORD so it quits looking if there's 
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voe~ Dec Lerat tens 1ergeb13be 93:53:83 | FANT EBS iss #2, 16-0574 9 023 
66 5 1 &SBTTL ‘Declarations’ 
6 96 
68 6 ' 
9 6 ; TABLE OF CONTENTS: 


~“ 
-—-o 
SS 
Oooo 


ee ee ce ce ce ce ce ce ee ce ce ee ce ee a me a ee ee me me ee ee eB a ed ed ed od ed od 


7 071 1 FORWARD ROUTINE 
7 O76 NMLSOPENF ILE 
7% 07 NMLSCLOSEF ILE 
75 74 NMLSREADRECORD 
? 075 LSMATCHRECORD, 
7 076 NMLSWRITERECORD, 
78 07 NMLSDELETRECORD, 
79 0078 NMLSCHKFILEIO; 
a 0080 | | 
8 0081 i INCLUDE FILES: 
Bo BR 
RS 0084 1 LIBRARY 'LIB$:NMLLIB.L32'; 
Be 0085 1 LIBRARY * SHRLIGS :NMALIBRY 32" 
87 008 LIBRARY 'SYSSLIBRARY:STARLET.L32'; 
aoe 
0089 1 | EXTERNAL REFERENCES: 
$30 
009¢ SNML_EXTDEF; 
94 1 EXTERNAL LITERAL 
0095 _READERR, 
0096 NML$"WRITERR 
0097 NMLS$_DELETERR, 
0098 NMLS"RECREPLC, 


See Se Se Se te Ge Se Se Ge Se Ge Ge Ss Ge Se Ge Ge Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Sse Se esas 


90 

91 

9 

9 

94 

95 

96 

97 

98 

99 

100 NMLS_RECADDED, 

101 100 NMLS_RECDELET, 

10e git NORE $ 

10 19 

104 010 sae 

193 He: nml$gq_proprvmsk : BBLOCK (8); 
107 0106 —— ROUTINE 

108 10 nma$closefile, 

109 198 nma$deleterec, 

110 1 nmaSmatchrec, 

111 110 nmaSopenfile, 

V6 111 nma$readre-, 

11 Wie nma$writerec, 

114 11 nma$searchfid, 

115 114 nal$bld_reply, 

116 115 nal$error_l, 

11 116 nml$close_node_file, 
118 11 nal$delete_node_rec, 
119 By nal $open_node_ file, 
120 11 nal $read_node_rec, 
121 139 nal$send, 

122 121 nal $write_node_rec; 


pt 
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SOPENFILE Open permanent data base file 1o-808= 1382 90° 38;89 ; 10.8 ‘¢ 


ZSBTTL ‘NM poser ive Open permanent data base fiie’ 
GLOBAL ROUTINE nmlSopenfile (fid, access) = 


mse 


33 
wg 


'o4 

: FUNCTIONAL DESCRIPTION: 

This routine opens the permanent data base file(s) specified by 
the code in FID with the required access as specified by the 
code in ACCESS. 


! FORMAL PARAMETERS: 


= 
Ooo VMiFWN—OOONOU 


! Require OPERATOR privilege to write to permanent database files. Since 
! the files get left open for the entire NCP session, if the caller has 

! OPERATOR privilege, always gpen the files for read and write. If the 

' caller doesn’t have OPER privilege, and is trying to open the file for 
i write access, return a privilege violation. 


IF .nml$gq_proprvmsk Cprv$v_oper] THEN 
ELS access = nma$c_opn_ac_rw 

IF .access EQLU nma$c_opn_ac_rw THEN 
nml$error_1 (nma$c_stS_pri); 

i Open the permanent dete base file. Since the node permanent database 
' structure is guite different from she others, it is handled by separate 
It's different because it mus 


s so much larger, it be faster. 


i 
i 
' 
i 
' 
i FID Permanent data base file identification code 
; (NMASC_OPN_xxxx). 
: ACCESS File access code (NMAS$SC_OPN_AC_RO=>read, 
re NMASC_OPN_AC_RW=>read/write). 
4@ 4 i IMPLICIT INPUTS: 
4 4 
44 & : NONE 
45 4 ; 
46 4 ! IMPLICIT OUTPUTS: 
47 4 4 
48 4 : NONE 
49 & : 
50 6 ' ROUTINE VALUE: 
2 : COMPLETION CODES: 
35 : Returns a code indicating success. 
35 3 SIDE EFFECTS: 
37 3 Causes errors to be signaled. 
59 5 ine 
60 5 
61 5 
6¢ 6 
6 6 LOCAL 
6% 6 status; 
65 6 
66 
67 
re 
70 
4! 
18 
74 
a 
73 
78 
79 
Hy 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


SN NOAAAO 
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SFILEIO NML_ File 1/0 modules 18-5 ep-1984 5: AX-11 Bliss-32 V4.0-74 Page 6 
vor sb NMLSOPENFILE Open permanent data base file at 99: 43; 83 NML.SRCINMLFILEIO. B3004 ° (3) 
; 18 180 IF .fid EQL naerie opn_node THEN 
: : ; 1 status = nml$open_node_file () 

: 185 1 é status = nma$openfile (.fid 

; i 4 .accesss; 

: 188 1 § i Check the status and return it if it is success. If an error 
; 198 : i has occurred then a file open error will be signalled. 

: 191 189 2 RETURN nmlSchkfileio (nma$c_sts_fop, 

: 135 190 Status); 

; 19 313) 

: 6194 192 END; ! End of NMLSOPENFILE 


TITLE NML SF ILE 10 NML File 1/0 modules 
[IDENT \V04-000\ 

.EXTRN NMLS$GB_EVTSRCTYP 

-EXTRN NML$GQ~EVTSRCDSC 

-EXTRN NMLSGWIEVTCLASS 

-EXTRN NMLSGB~EVTMSKTY 

-EXTRN NML$GQ—EVTMSKDSC 

EXTRN NBL $GU~EVTSNKADR 

-EXTRN NMLS$GW~ACP_CHAN 

-EXTRN NML$GL_LOG onAse NML$GQ_ENTSTRDSC 
-EXTRN NMLSAB_QIOBUFFER 

“EXTRN NMLSGQ~Q1OBFDSC 

-EXTRN NMLSAB~EXEBUFFER 

-EXTRN NMLSGL-EXEDATPTR 

-EXTRN NMLS$GQ~EXEDATDSC 

EXTRN NAL $60 EXEBFDSC 


Y 
XTRN ee aT le ID 
XTRN NMLSAB_ENTITYD ATR 

XTRN wit SAB =NML_NMY, RMSEM 
XTRN NMLS$ AB _RECBUE “MMCEAL Me ENT INE TAB 


.E 
3 
-E 
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-E 
Bites tee NMLSAW"PRM_DES 
E 
-E 
.E 
-E 
-E 
«E 
E 
-E 
E 
E 
-E 


XTRN NALSAL™ “PERMINE TAB 
NML$GB_CMD_VER 

XTRN t$cB7 “ENTITY_CODE 

XTRN NACSCB-ENTITY= FORMAT 

XTRN NMLSGL-QUALIFTER_PST 

XTRN NMLSGB~QUALIFIER-FORMAT 

XTRN NMLS$GB~FUNCTION 

XTRN NMLSGB-INFO, NMLSGB_OPTIONS 

XTRN NMLSGL-PRMCODE, NMLSGL_PRS_FLGS 

XTRN NMLSGL"NM enti Y 

XTRN NMLS$GO-NETRAMDSC 

XTRN NML$GQ"RECBFDSC 


FDS 
XTRN NMLSGW"PRMDESCNT 
XTRN NMLS$_READERR, NMLS_WRITERR 
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vO4=000 


; Routine Size: 


NML File 1/0 modules 1 
NMLSOPENFILE Open permanent data base file 14-Sep-1 


06 000000006 00 
08 


70 bytes, 


000000006 00 
000000006 00 

7E 
000000006 00 


00000000v 00 


Routine Base: 


M11 
-Sep-1 


0000 00000 
02 €1 00002 
01 00 QOO0A 
10 11 BR ROF 
08 AC 01 00010 18: 
QA 12 00014 
03 CE 00016 
01 FB 00019 
04 AC D5 00020 2$ 
09 12 00023 
00 FB 00025 
OB 11 0002C 
04 AC 7D 000 ; 3$: 
02 FB 000 
50 DD 00039 4$: 
OD CE 00038 
02 FB Q003E 
04 00045 


SCODES + 0000 


38¢ 90: 13:8) AX-11 Bliss-32 V4.0-74 


XTRN 


NML.SRCINMLF ILEIO.832; 


NML$_DELETERR, wis RECREPLC 
NMLSTRECADDED, NMLS$"RECDELET 
NML$_NORECOWN, NALSGO PROPRVMSK 
NMASTLOSEFILE, NMASDECETEREC 
NMASMATCHREC, NMASOPENF ILE 
NMASREADREC, NMASWRITEREC 
NMASSEARCHFLD, NMLSBLD_REPLY 
NMLSERROR_1, Wil SCLOSE- NODE _FILE 
NMLSDELETE NODE _REC 
NMLSOPEN_NODE_FILE 
NMLSREAD_NODE-R cC 

NMLSSEND, NMLSWRITE_NODE_REC 


SCODES,NOWRT,2 
NMLSOPENFILE, Save -—" 
#2, NML$GQ_ PROPRVMSK+2, 
#1, ACCESS” 

ACCESS, #1 

2$ 

#3, -(SP) 
#1; NMLSERROR_1 
i? 
#0. NMLSOPEN_NODE_F ILE 
FID, -(SP) 

He. NMASOPENF ILE 
STATUS 

#13, -(SP) 

#2. NMLSCHKFILEIO 
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SBT 


ZSBTTL aii SCLOSEF ILE Close permanent data base file’ 
GLOBAL ROUTINE nml$closefile (fid) = 
144 


NMLSFILEIO 
vOe=000 


33 
-- 


F / 4.0-74 
$C I O:B3ee4 


o- 
“ee 
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i 
L E 


FUNCTIONAL DESCRIPTION: 


This routine closes the permanent data base file(s) specified by 
the code in FID. 


FORMAL PARAMETERS: 


i 
1 
i 
i 
i 
i 
i 
i 
! FID Permanent data base file identification code 
: (NMASC_OPN_xxxx). 
' ROUTINE VALUE: 

!' COMPLETION CODES: 

Returns a code indicating success. 

| 

i 

' 

ie 


BDOOGDOGDOOCOOO 00000 


DWONAUES WN $9 ODNOUSWN $$ O OONAOULS WN OVD ONAYV EWR (OO O-JIOULW 


SIDE EFFECTS: 
Causes errors to be signaled. 


SSS SSS Oooo Oooo 
—_ ad ed ad 
PARWV—OOW NOE OODONO MEW BOD R IE RR UO S Dee 


SOOOOCOSOCOOSOSOSOOSOSOSOSSOSOOSCOOCOSCSOOOCOOOOOOOCOOOOCOCOOODOOOCOO 


= POIANA WIE B&B BE BANANA) tt st tt st tt tt tt 


Be Se Ge Se Ge Ge Se Ge Ge Ge Se Se Ge Ge Fe Gs Se FF Ge Se Se Se Ge Se Ge Ge Se Se Ge Se Ge Ss Se Se Se St F556 Se Hs SH Se Ss ee ee 


21 
21 
21 
21 21 - 
21 21 
21 21 BEGIN 
21 21 
22 21 LOCAL 
$$ $1 status; 
$$ $$ IF .fid EQL nma$c_opn_all THEN ! If it failed because of ALL 
22 $5 INCRU idx FROM nma$c_opn_min ! Close all the files by 
22 22 O nma$c_opn_max DO ! Calling ourselves 
22 22 BEGIN 
22 22 IF .idx EQL nma$c_opn_node THEN ; 
$$ $$ status = nml$close_node_file (.idx) 
$3 22 status = nma$closefile (.idx); 
23 $$ END; 
25 2 END 
234 23 ELS 
23 23 BEGIN 
2 23 IF .fid EQL mma$c_opn_node THEN 
$30 $3 status = nml$close_node_file (.fid) 
$20 $3 status = nma$closefile (.fid); 
241 23 RETURN .status; : 
242 23 END; ! OF nml$closefile 


ILE, Save R2,R3,R4 
NODE FILE. Ro 
0000007F : 


a 


NMLSFILEIO NML File 1/0 modules 16-50 4 1 AX-11 Bliss-32 V 68308 Page 9| 
yO%.000 NMLSCLOSEFILE Close permanent data base file 1 =30 7} 3RF 99: 3 ‘O NML.SRC NMEFICELO B32; . (4) 
D4 QOOTA CLRL IDX $ 
33 3 ih 1$: TSTL Jox Y § 9338 
9 1 $) BNEQ $ 3 
2 oD PUSHL IDX Ps 0226 
64 1 ro 0 CALLS #1, NMLSCLOSE_NODE_FILE 5 
BRB 3$ 3 
2 OD 2$: PUSHL IDX ; 0228 
63 1 FB 00029 CALLS #1, NMASCLOSEFILE j 
D6 0002C 3$: INCL IDX 3; 0222 
07 Di 0002E CMPL 10x. #7 : 
E9 1B 00031 BLEQU $ : 
04 4 3 RET 3 0249 
04 AC D5 00034 4$ TSTL FID 3; 02 
07 12 00037 BNEQ 5$ 3 
04 AC DD 00039 PUSHL FID 3 0234 
64 01 FB 909 C CALLS #1, NMLSCLOSE_NODE_FILE : 
04 0003F RET ; 
04 ac OD 44 98 5$ PUSHL FID 3; 0236) 
63 01 FB 0004 CALLS #1, NMASCLOSEFILE 3 
04 00046 RET 3; 0239 


; Routine Size: 71 bytes, Routine Base: S$CODES + 0046 
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SREADRECORD Read record from permanent data 14-Sep-1984 12:50:09 NML.SRCIJNMLFILEIO. 


ZSBTTL "NMLSREADRECORD Read record from permanent data base file’ 
GLOBAL ROUTINE nml$readrecord (fid, key, key_value_dsc, 
bufdsc, rtndsc, node_type) = 


e 1/0 modul Ax-11 8B 


NALS ILELO iss-32_V4.0=742 
vO4=000 ALF ILEIO.B32; 1 


7 
32; 
44 
45 


++ 
FUNCTIONAL DESCRIPTION: 
This routine reads a record from a permanent data base file. 


DIPISISIIUIN & 


AAA HAAN LN SS 
io 


N 
N 
5 0240 1 
; 0241 1 
3 0 § 1 
3 7 0 1 
; 8 0244 1! 
3 9 8 ms 
3 0 § 1! 
3 1 0 1! 
; ¢ 0248 1! 
; 7 ta : FORMAL PARAMETERS: 
; 5 Os ek FID Permanent data base file identification code. 
: 6 0 é 1! KEY Address of buffer to hold the record key. 
; 257 02 1! KEY_VALUE_DSC Node database only - address of descriptor of node 
; 258 0254 1! to read. 
3 oe 8s on BUF DSC Descriptor of buffer to hold record. 
; 260 0256 1! RTNDSC Descriptor of data in record. 
; 261 0257 1! NODE_TYPE Node database only - address at which to return 
; $06 8 ! node type (executor, remote, or loopnode). 
> 264 0260 1 ! IMPLICIT INPUTS: 
; 265 0261 1! 
: 266 og0¢ 1! NONE 
; 267 0265 1! 
; 268 0264 1 ! IMPLICIT OUTPUTS: 
; 269 0265 1! 
3; 2 0266 1! NONE 
s ery 0267 1! 
: 272 0268 1 ! ROUTINE VALUE: 
2 es 0269 1 ! COMPLETION CODES: 
; 274 0270 1! 
3; 2 O271 1! Returns a code indicating success or end of file. 
; 2m pers 1! 
3s a 027 1 ! SIDE EFFECTS: 
s en 0274 1! 
3; ery 0275 1! Signals error. 
: 280 0276 1! 
3; «281 ogee 1 !-- 
3; ene 0278 1 
: 283 544 BEGIN 
3: 284 0280 
; 285 0281 LOCAL 
: 286 OS8¢ status; 
Mm BEE 
$ 84 ' Read record. 
; «289 0285 ‘ 
: 290 943 IF .fid NEQ nma$c_opn_node THEN 
; 33 asee status = nma$readrec (.fid, .key, .bufdsc, .rtndsc) 
: 38 6 89 status = nml$read_node_rec (..key, .key value_dsc, .node_type, 
: 2 p 39 ebufdsc, .rtndsc); 
: 296 4 ! If the operation was successful or the end of the file was reached (record 
: 297 9 ' not found) then return the success code. Otherwise, cause a file 1/0 error 
; oS oe message to be signalled. 
; 300 96 IF .status OR 
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D 
wy SEILELO NML_ File I/0 modules 19° 
Vv NMLSREADRECORD Read record from permanent data 14- 
; 301 97 (,status EQLU rms$_rnf) THEN 
3 ¢ 98 RETURN .status 
; 99 ELSE 
: 304 0300 RETURN nml$chkfileio (nma$c_sts_fio, 

: 305 8 01 Ss 
; 306 02 1 END; 
000 68 
04 AC D 0 
11. 13 0000 
7E 10 AC 7D 00007 
7E 04 aC 7D 00008 
000000006 00 04 FB QOOOF 
14 «#11 id 
7E 10 AC 7D 0001 
18 AC OD OOOIC 
Oc aC ODD Bones 
08 BC DD 000 ¢ 
00000000G 00 05 Fe 000 
15 50 €E B98 C 
00018282 = 8F 50 Di 0002F 
0c 13 00036 
50 DD 00038 
7E 12 CE OOO3A 
00000000v 00 02 FB 00030 
04 00044 
; Routine Size: 69 bytes, Routine Base: S$CODE$ + 008D 
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atus); 
! End of NMLSREADRECORD 


et Bliss-32 V3 -Oa2ae 
NML.SRCINMLFILEIO.832; 


ns Save nothing 


1$ 
BUFDSC, =-(SP) 
FID, =(SP) 

#4, NMASREADREC 


BUFDSC, -(SP) 
NODE _TYPE 

KEY QALUE_DSC 

#5, NMLSREAD_NODE_REC 
STATUS, 

sfAtus. #98994 

STATUS 

#18, -(SP) 

#2, NMLSCHKFILEIO 
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1/0 modules 16-Sep-1984 90: ]3: 1 AXx-11 Ol iesete V 
HRECORD Match record from permanent da 14-Sep-1984 12:50:09 NML.SRCINMLF ILE! 


ZSBTTL "NMLSMATCHRECORD Match record from permanent data base file’ 
GLOBAL ROUTINE nml$matchrecord 2 busdec. bey adr, 
’ len, acr, 
qual_pst, qual_len, qual_adr, rtndsc) = 
lee 


FUNCTIONAL DESCRIPTION: 
This routine matches a record from a permanent data base file. 


' 
! FORMAL PARAMETERS: 
i FID Permanent data base file identification code. 
: BUF DSC Descriptor of buffer to contain the record. 
KEY_ADR Address of buffer for record key. 
i ID Code of parameter to match. 
; ID_LEN Length of parameter value to match. 
ID_ADR Address of parameter value string to match. 
i QUAL_PST Parameter Semantic Table entry address of qualifier 
: parenstes to match. 
: QUAL_LEN ength of qualifier parameter value to match. 
} QUAL _ADR Address of qualifier parameter value string to match. 
RTNDSC Descriptor of data in record. 
i ROUTINE VALUE: 
COMPLETION CODES: 
A success code or an error indicating end of file will be returned. 
i SIDE EFFECTS: 
Any errors will cause a status message to be signalled. 
_ 
BEGIN 
LOCAL 
rec_qual_len, 
rec_qual_adr, 
fieTd_len, 
status; 


status = 3 
If looking for KNOWN entities, set up to do a wildcard match. 
if “14 len EQL ngate ont _kne THEN 

= 


ss ield_len 
field_len = .id_len; 


Read records in the perasnent data base until one is found which has 
fields which match the ID and qualifier (if it's specified) parameters, 


——<— © 
- 


F 
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NMLSFILEIO /O0 modules 16-Sep-1984 00:15:01 AX-11 Bliss-32 0-742 P 13 
yor~000 RD “Match record from permanent da 12-388: 38 99:39:89 NAL. SREINAGF ICE B32;1 ™ (6) 


33 
o S. 
=—-_— 
oe 
x 
Dp 
m 
o 
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' or until end-of-file. 


' ; 

a 8 i 
6 $¢ WHILE .status NEQU rms$_rnf DO ‘ 
re o BEGIN : 
79 65 Get a record with a field that matches the ID. : 
ue 5 Status = nmaSmatchrec (.fid, .bufdsc, .key_adr é 
7 68 id, .field_len, .id_adr, .rtndsc); é 
74 IF .status THEN ¢ 
75 0 BEGIN 
f a) MAP qual_pst: REF BBLOCK; 

7§ i If there's no qualifier to match, or the record contains 

ie a field that matches the qualifier specified, return success. 

if -nml$al_prs.tlgs Cnml$v_prs_qualifier) THEN 
rec_qual_adr = 0; ! Search she beginning of record. 
7 IF nma$searchfid (.rtndsc, .qual_ost Cpst$w_dataidJ, 


rec_qual_len, rec_qual_adr) THEN 


BEGIN 
IF CHSEQL (.rec_qual len, .rec_qual_adr, 
-qual_len, .qual_adr) THEN 


4 
4 
4 
4 
4 
4 
| 
6 
6 
6 
RETURN .status; 
END; 
4 
4 


WAWAWA 
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END 
ELSE 
RETURN .status; 
END 
ELSE 
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! 
i Jf the error wasn't “record not found’, cause a file 1/0 error 
! message to be signalled. (When DEFINE ing an entity not already 
Z im the permanent database, RMSS$_RNF will be returned). 
401 if .status NEQU rms$_rnf THEN 
rt) RETURN nml$chkfileio (nma$c_sts_fio, 
ret , -Status); 
405 i The ID or qualifier did not match. Continue searching the file for a 
$38 8 record with both an ID and qualifier that match the ones specified. 
$08 : (key adr) <0,16> = .(.key_adr)<0,16> + 1; 
410 05 RETURN .status; 
411 06 END; ! End of NMLSMATCHRECORD 


3 sENTRY NMLSMATCHRECORD, Save R2,R3,R4,R5 
C SUBL2 #8, S 

D MOVL #1, STATUS 
i fe 


IDCLEN, #1 


ra 
4 
FFFFFFFF F 14 h 


Sete eeees 
oo 
aE 
Wo 


NMLSFILEIO NML_ File 1/0 modules 1 
Hyatt NMLSMATCHRE CORD “Match record from permanent da 1 
5 D4 1 

sow RE 
00018282 a 54 » A 
66 } 

7 AC 0D 
MS BR Biss 
7E oc AC a 8 
3 04 ac 70 F 
000000006 F 3 
5 0b Bk 

a 
41 000000006 : 4 r 
gf i) Ree 
8 AE oF 4C 
7E i BC C beh 
AC 0D 53 
000000006 9 96 Fg Ones 
20 ac 00 00 «BE o oF 5 st 
ib ss 
000182B2 =8F op O078 
4 pdDd 0007 
7E is CE 00079 
00000000v 00 0 fe Baeg 
OC BC Bé6 00084 
| Af S008? 
50 54 Be tH 
4 0008C 

; Routine Size: 141 bytes, Routine Base: S$CODE$S + 0002 


tt 


Ww 
bad 


4$: 
5$: 


Sep- 
=hen- 


1984 AX-11 Bliss-32 V4.0-74 
138 99: 43: 83 NML.SRCINMLFILEIO.B32; 

CLAL pJELD. LEN 

for. LEN. FIELD LEN 

CMPL stat US, # 998992 

BEQL 4 

PUSHL RTNDSC 

PUSHL ID_ADR 

PUSHL FIELD_LEN 

MOVO KEY_ADR, -(SP) 

MOVa FID: -(§P) 

CALLS #7, NMASMATCHREC 

VL RO, STAT 
BLBC STATUS, 
C #2, NMLSGL_PRS_FLGS, 5$ 

CLRL = REC_QUAL_ADR 

PUSHL SP 

PUSHAB REC_QUAL 

MOVZWL @QUAL PSTe EN SP) 

PUSHL R 

CALLS #4, NMASSEARCHFLD 

CMPCS REC_QUAL_LEN, @REC_QUAL_ADR, #0, QUAL_LEN, - 
@QUAL _ADR 

BNEQ 4$ 

BRB 5$ 

CMPL STATUS, #98994 

BEQL «6s 4$ 

PUSHL STATUS 

MNEGL #18, =(SP) 

CALLS #2, NMLSCHKFILEIO 

INCW @KEY_ADR 

BRB 

MOVL STATUS, RO 

RET 


53% 
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NMLSFILEIO NML File 1/0 module 16-Sep-1984 00:15:01 AX-11 Bliss-32 V4.0-74 Page 15 
rivet NMLSWRITERECORD Write record to permanent data 12-888: 382 99:43:83 NML.SRC NACFILEO 83004 . Ry 
; 413 407 1 XSBTTL sae, un TERE CORD Write record to permanent data base file’ 
; rey : 5 : GLOBAL ROUTINE nmlSwriterecord (fid, entity, key, recdsc, write_type) = 
: $18 410 1 !4¢ | 
3 tls bet ! FUNCTIONAL DESCRIPTION: 
; 419 21 1! This routine writes the record with the specified key into a 
: : Bete : } permanent data base file. 
3; 4 ¢ 0416 1 ! FORMAL PARAMETERS: 
; 4 0417 1! 
: 424 Baie | FID Permanent data base file identification code. 
; 425 419 1! ENTITY Entity type. 
>: 426 0420 1! KEY Address of key of record to be written. 
: 427 0421 1! RECDSC Descriptor of record data to be written. 
> 428 04 ¢ 13 WRITE_TYPE Node database only - specifies whether write is 
: $¢8 04 1! an update of an existing record, or addition of 
; 430 0424 1! a new one. 
s 431 0425 1! 
3 $38 0426 1 ! IMPLICIT INPUTS: 
s 45 0427 1! 
; 434 0428 1! NONE 
; 435 0429 1! 
; 436 0430 1 ! IMPLICIT OUTPUTS: 
: 437 0431 1! 
; 438 bees 1! NONE 
; 439 04 1! 
; 4460 0434 1 ! ROUTINE VALUE: 
; $3) ot H ; : COMPLETION CODES: 
3 44 be39 1! A code indicating success will be returned. 
: 464 0438 1! 
; 445 439 1°! SIDE EFFECTS: 
3 446 440 1! 
3 447 0441 1! Any errors will cause a file 1/0 error to be signalled. 
: 448 44 1! 
; 4469 44 1 !-- 
; 450 444 1 
3; 451 0445 BEGIN 
$ $28 044 
; 45 044 LOCAL 
: 4546 0448 status; 
; 455 0449 ! 
: $36 450 !' Write record. 
; 45 451 ! 
; 458 $26 IF .fid NEQ nma$c_opn_node THEN 
: 459 45 status = nma$writerec (.fid, .key, .recdsc) 
: oe? tes § FS 
; 46¢ 46 status = nml$write_node_rec (.write_type, .entity, .recdsc); | 
: 664 be8h ' Ifa Gul icate key was detected, it must be a duplicate node 
; 465 bY) ' name (that’s the onty key that can't have a duplicate). Return 
: $08 460 ! the error to the caller so it can be returned to NCP the same way 
3 ret 18) : duplicate addresses are. 
; 469 8 IF .status EQL rms$_dup THEN 


Ss 


l module 15-56 Ax-11 8B iss 32 V4.0-74 Page 16 

NMALSWRI ORD Write record to permanent data 1 3007138 99: 43: 83 NAL. SRC JNM fFitelore3oe4 ° ¥ 
3 4 464 RETURN .status; 
. : re ; END; 
: 4 46 i Check the status and return if it is success. Otherwise, cause a 
: : tes file 1/0 error message to be signalled. 
: 4 23 RETURN nml$chkfileio (nma$c sts -fio, -Statu 
3; 4 471 END; ! End of tae SURITERECORD 


000 00 ENTRY NMLSWRITERECORD, Save nothing s 860 
04 4 ) 8 TSTL FID ; 045 
10 1 0 BEQL Ss : 
7E ¢ aC 7D 0000 MOVO KEY, =(SP) > 0453 
4 AC DD 008 PUSHL : 
000000006 00 0 FB 0 CALLS #3, NMASWRITEREC ; 
19 1 1 BRB 23 : 
10 AC DD 00017 1$: PUSHL RECDSC + 0456 
08 AC DD OOO1A PUSHL EN Hy, : 
14 AC DD 0001D PUSHL RIT YPE ; 
999000006 00 9 FB 00020 CALLS fal SURITE NODE _REC ; 
000184EC 8F 0 b1 00027 CMPL oF arise #99562 ; 
o¢ 13 0002E EQL 
0 DD 00030 2s: PUSHL + 0470 
7E 12 CE Bones MNEGL #18, -(SP) 3 
00000000v 06 02 FB 0003 CALLS #2, NMLSCHKFILEIO : 
04 0003C 3$: RET : 0471 


; Routine Size: 61 bytes, Routine Base: SCODES + O15F 
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NML File 1/0 modules 1b-Se 1984 00:15:01 AX-11 Bliss-32 V4.0-74 
NMLSDELETRECORD Delete record from permanent d 1 =300 71382 90:43:88 NML.SRCINMLF ILEIO.B832; 


Ww SEILEIO 


; 479 158 1 ZSBTTL "NMLSDELETRECORD Delete record from permanent data base file’ 
3 ret tte } GLOBAL ROUTINE nml$deletrecord (fid, key, key_value_dsc) = 

: 3 toe | i FUNCTIONAL DESCRIPTION 

3 tb be5$ 1! 

>; 485 0478 1! This routine deletes the record with the specified key from 
; 486 0479 1! the permanent data base file. 

; 487 0480 1! 

H tee Beet ' FORMAL PARAMETERS: 

; 490 acs 1! FID Permanent data base file identification code. 
; 491 484 1! KEY Address of key of record to be written. 

>; 49 bees 1} KEY_VALUE_DSC Node database only - address of descriptor of node 
; 49 486 1! ID. 

> 494 0487 1! 

; 495 0488 1 ! IMPLICIT INPUTS: 

>; 496 0489 1! 

; 497 0490 1! NONE 

; 4498 0491 1! 

3; 499 0492 1 ! IMPLICIT OUTPUTS: 

; 500 0495 1! 

; 501 0494 1! NONE 

; one 0495 1! 

; 0496 1 ! ROUTINE VALUE: 

3; 504 0497 1 ! COMPLETION CODES: 

3 505 0498 1! ; 

> 506 0499 1! A code indicating success will be returned. 

3; 507 0500 1! 

; 508 0501 1 ! SIDE EFFECTS: 

; 509 p20¢ 1! 

3 310 0503 1! Any errors will cause a file I/0 error to be signalled. 

s 3} 0504 1! 

3 aig 0505 1 !-- 

; «51 0506 1 

3; 514 0507 BEGIN 

gs 313 B208 

; 5 509 LOCAL 

s S17 0510 status; 

3 «318 0511 ' 

3 23? b2i§ : Delete record from the permanent data base file. 

: : 1 514 IF .fid NEQ nma$c_opn_node THEN 

3 2 § AF - status = nma$deleterec (.fid, .key) 

3; 3 ¢ 317 , Status = nml$delete_node_rec (..key, .key_value_dsc); 

3 $ 19 ' Check the status and return if it is success. Otherwise, cause a 
3 259 file 1/0 error message to be signalled. 

: 9 52¢ RETURN nml$chkfileio (nma$c_sts_fio, .status); 

: ¥ 5 END; ! End of NMLSDELETRECORD 


46 
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NMLSFILEIO NML File 1/0 modules 16-Sep-1984 00:15:01 AX-11 Bliss-32 V4.0-742 Page 18 
yoe~000 NMCSDELETRECORD™ “Delete record from permanent d 14- ~Sep-19 4 9:33:88 NAL SREINMLFILEO.B3045 . (8) 
000 ENTRY NMLSDELETRECORD, Save nothing 3 0473 
04 ac OD TSTL FID 3; 0514 

0D 1 BEQL 1$ 3 
43 04 a5 70 MOVQ FID, =(SP) 3; 0515 

000000006 0 8 re CALLS #2, NMASDELETEREC 3 

. 3 1 BRB 2 ; 
+5 AC 0D 14 18: PUSHL KEY _VALUE_DSC 3 0517 

DD 1 PUSHL : 

000000006 00 FB QOO1A CALLS #2 WALSDELETE NODE _REC 3 
DD 000 } 2$ PUSHL ST TATU ; 0522 

7E 12 CE 000 MNEGL #18, S (spy 3 

00000000v 00 02 FB B08 6 CALLS #2, “NMLSCHKFILEIO : 
04 00020 RET : 0523 


; Routine Size: 46 bytes, Routine Base: $CODE$ + 019C 


Q 
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1/0 modules 1b-$6 -1984 00:15: AX-11 iss-32 V4.0-74 
ILEIO Return file 1/0 status 1 ~3007 138% 99:43:89 YNML SREINALFILELO.032; 
ZSBITL a IN SCORE ILE 10 Betyen file 1/0 status’ 
GLOBAL ROUTINE nml$chkfileio (opcode, status) = 


144 
FUNCTIONAL DESCRIPTION: 


Sad 

aon 
ze 
zn 


wer SEALELO NM 


Wr 


This routine checks the status of file I/0 operations and 
signals a status message if an error occurs. 


i FORMAL PARAMETERS: 


OPCODE Operation error code to return in message. 
STATUS Operation status to be examined. 


‘ 

' 

' 

' 

' 

4 

1 

| IMPLICIT INPUTS: 
NONE 

{ IMPLICIT OUTPUTS: 
NONE 
' 

i 

t 

] 

.] 

\] 

$ 

t 

1 

' 


i ROUTINE VALUE: 
COMPLETION CODES: 


Returns success (NML$_STS_SUC) if the STATUS indicates success. 
i SIDE EFFECTS: 
Signals an error message if STATUS indicates error. 


PAPAIN PEPE 
WN O DONAUESWN “OOD ONOULSWN —"OOOnNOu! 


ae 


i For any other file access error, return the error supplied by the calling 
! routine. 


WANA ANI AIA AAAI PIPPIN 9 = = 2 2 
- . . . . 
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Pe eae al eal al al al al sb Al Ab Ah db dh db db bh Abedb db 4b tb ab-4b-4d-4b 4b 4b 4h db Ab db Ab Ab Ab Ab dh hh hhh hh dh ah sb dh abd sh ab esh eal 


66 

67 LOCAL 

$8 msgsize; ! Message size 

9 If the status is not success then build a status message and signal it. 

Le: if NOT .status THEN 

hg BEGIN 

i} 05 File operation failed, so signal error message. 

Ag 629 nml$ab_msgblock Cmsb$l_flags] = msb$m_det_fld OR msb$m_msg_fld; 

79 057 i If the file was not opened for the specified access, the calling process 
80 057 ! doesn't have OPER privilege (or the file would have been opened for any 
3 b27 access). 

HY 57 if .status EQL rms$_fac THEN 

Be 3 gg Beh pogelock Cmsb$b_code] = nma$c_sts_pri ! Privilege violation. 
Be 57 

87 57 

88 058 
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you~ AO NMLSCHKFILEIO Return file 1/0 status 12: Sep- 138 99: 43: 83 NML.SRCIJNMLF ILEIO.B832;1 . (33 
; 589 2 ! 
} 399 O36 EGIN 
; 2) B28? 2 at ab_msgblock Cmsb$l one = 2 sates msgbtock Cmsb$l_flags] OR 
; 59 0585 4 nm $ab_msgblock Emsbst- code +0 pcodss | Add error code 
3 ge 8 § 4 caret msgblock Cmsb$l_text -Status; 
: 596 0588 nml$ab_ms biock Cmsb$w_detail] = nma$c_ re dtl_pdb; ! Add file id code 
5 oer §369 nm $bld_ reel ty ire nml$ab_msgblock, msgsize a 
; 598 0590 $signal-msg (nml$ab_sndbuffer, il 
: 599 0591 END; 
; 600 0238 
; 601 59 RETURN nml$_sts_suc 
; 602 0594 1 END; ! End of NMLSCHKFILEIO 
0004 00000 -ENTRY wR SCHL ILETO, Save R2 ; 0525 
52 000000006 00 bs 00002 oy NMLSAB_MSGBLOCK, R2 3 
5E 04 C2 00009 SUBL #4, 3 
44 08 AC €E8 0000C BLBS STATUS, 3$ : 0564 
62 06 DO edt MOVL #6, NMLSAB_MSGBLOCK : 0569 
00018514 8F 08 AC 01 0001 CMPL STATUS, #99604 ; 0575 
06 12 00018 BNEQ 1 3 
04 A2 03 8E Bonso MNEGB tf NMLSAB_MSGBLOCK+4 3; 0576 
OE 11 00021 BRB : 
40 8F 88 00023 1$: B1SB2 $84 NMLSAB_MSGBLOCK ; 0583 
04 A2 04 AC 90 00027 MOVB OPCODE, NMLSAB_MSGBLOCK+4 : 0585 
0c 08 AC 00 0002C MOVL STATUS, NMLSAB-MSGBLOCK+12 ; 0586 
08 A2 B4 00031 2$: CLRW NL SAB th OCR+8 3; 0588 
4004 8F 8B 00034 PUSHR #*M ; 0589 
600000006 00 02 FB 00038 CALLS #2. <n $B REPLY 3 
6E DD 0003F PUSHL ns : 0590 
000000006 00 9F One) PUSHAB NMLSAB_SNDBUFFER 3 
01F9000 8F DD 00047 PUSHL #3 3 
000000006 00 03 FB 0004D CALLS #3, LIBSSIGNAL 3 
50 01 D0 00054 3$: MOVL #1, RO 3: 0593 
04 00057 RET : 0594 


; Routine Size: 88 bytes, Routine Base: $CODE$ + O1CA 


N 12 
SFILEIO NML_ File 1/0 modules 16-Sep-1984 00:15:01 AX-11 Bliss-32 V4.0-74 

yO%e008 NMLSCHKFILEIO Return file 1/0 status 12-808 - 1382 90:33:09 ENML «SRE NALFILEYO:63244 
; 604 95 1 END ! End of modul 
605 0396 i ncatincaapne 
; 597 0 ELUDOM 

.EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 546 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
; omen Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CNML.OBJINMLLIB.L32;1 341 28 B 2? 00:00.1 
; ~$299$DUAZB: CSHRL IBINMALIBRY -L 3251 887 10 1 47 00:00.2 
; 7$255$DUA28:CSYSLIBISTARLET.L32; 1 9776 4 0 581 00:02.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NMLFILEIO/OBJ=OBJ$:NMLFILEIO MSRC$:NMLF ILEIO/UPDATE=(ENHS$:NMLé ILEIO) 


Size: 546 code + 0 data bytes 
Run Time: 00:13.0 
Elapsed Time: 00:35.4 


Lines/CPU Min: 603s 
Lexemes/CPU-Min: 7900 
eee Used: 101 pages 
Compilation Complete 
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